home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
fb386
/
graf
/
a19.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-30
|
899b
|
26 lines
1000 'A19.BAS***************************************************T.K.MOSAKU
1010 CLS
1020 PI=3.14159!
1030 A$="☆☆☆ 少しずつ角度を変えて直線を書き重ねています。 ☆☆☆"
1040 A=LEN(A$):B=(80-A)\2:LOCATE 0,24:PRINT SPACE$(B)+A$
1050 T1=TIME:S=0
1060 Q=1:C(1)=1:C(2)=1:C(3)=1:C(4)=5:GOSUB *MAIN
1070 T2=TIME:T=T2-T1:LOCATE 5,1:PRINT "描き上げる時間--";T;"秒 描いた直線の数--";S;"本":WAIT 150
1080 LOCATE 5,1:PRINT SPACE$(60)
1090 T1=TIME:C(Q)=0:GOSUB *MAIN
1100 T2=TIME:T=T2-T1:LOCATE 5,1:PRINT "消すのに要した時間--";T;"秒 ":WAIT 150
1110 GOTO 1240
1120 '
1130 *MAIN
1140 FOR I=0 TO 1437 STEP 3
1150 U=I/180*PI
1160 R=(COS(U*2)+SIN(U*2))*40+100
1170 X1=R*COS(U/4)+210:Y1=R*SIN(U/4)+240
1180 Y2=R*COS(U/4)+230:X2=R*SIN(U/4)+460
1190 IF I=360*Q THEN Q=Q+1
1200 LINE(X1,Y1)-(X2,Y2),PSET,C(Q)
1210 S=S+1
1220 NEXT
1230 RETURN
1240 '